﻿Imports CrystalDecisions.CrystalReports.Engine

Public Class SalesReport1

    Private Sub SalesReport1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim Report = New ReportDocument
            Report.Load("E:\Source\SMSSystem1\OnWork\SMSInventorySystem\Reports\SalesReport.rpt")
            Report.Refresh()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class
